home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tf.d64 / proc.quicksort < prev    next >
Text File  |  2009-01-03  |  479b  |  19 lines
  1. 0870 PROC QUICKSORT(LEND,REND) 
  2. 0880   LP:=LEND; RP:=REND
  3. 0890   COMP$:=NAME$((LP+RP) DIV 2)
  4. 0900   REPEAT 
  5. 0910     WHILE NAME$(LP)<COMP$ DO
  6. 0920       LP:+1
  7. 0930     ENDWHILE 
  8. 0940     WHILE NAME$(RP)>COMP$ DO
  9. 0950       RP:-1
  10. 0960     ENDWHILE 
  11. 0970     IF LP<=RP THEN
  12. 0980       EXCHANGE(NAME$(LP),NAME$(RP))
  13. 0990       LP:+1; RP:-1
  14. 1000     ENDIF 
  15. 1010   UNTIL LP>RP
  16. 1020   IF LEND<RP THEN QUICKSORT(LEND,RP)
  17. 1030   IF LP<REND THEN QUICKSORT(LP,REND)
  18. 1040 ENDPROC QUICKSORT
  19.